home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.47 / triton / tritondemo2.p < prev    next >
Text File  |  1995-04-29  |  28KB  |  619 lines
  1. Program TritonDemo2;
  2. {$incl "triton.lib"}
  3.  
  4. Type tags  = Array [0..3] OF TagItem;
  5.      tags2 = ARRAY [0..368] OF TagItem;
  6.  
  7. VAR     App             : p_TrApp;
  8.         Project         : p_TrProject;
  9.         AppBuffer       : tags;
  10.         ProjectBuffer   : tags2;
  11.  
  12. TYPE    CatEntries      =(
  13.                 (* Working-Modes *)
  14.                  wmknCheckmark,
  15.                  wmknCycle,
  16.                  wmdtCheckmark,
  17.                  wmdtEntry,
  18.                  wmttCheckmark,
  19.                  wmddCheckmark,
  20.                  wmimCheckmark,
  21.                  wmcsCheckmark,
  22.                  wmidCheckmark,
  23.                  wmidSlider,
  24.                  wmstCheckmark,
  25.                  wmstEntry,
  26.  
  27.                 (* Source *)
  28.                 sGroup,
  29.                 sSelected,
  30.                 sImageOnly,
  31.                 sName,
  32.                 
  33.                 (* Destination *)
  34.                 dGroup,
  35.                 dName,
  36.                 
  37.                 (* Menu *)
  38.                  miOpenIcon,
  39.                  miSaveIcon,
  40.                  miSaveIconAs,
  41.                  miSaveDefault,
  42.                   misdDisk,
  43.                   misdDrawer,
  44.                   misdTool,
  45.                   misdProject,
  46.                   misdGarbage,
  47.                   misdKick,
  48.                  miAbout,
  49.                  miQuit,
  50.                  miDropGoesDest,
  51.                  miDropActivates,
  52.                  miNoIconPos,
  53.                  miSaveInfo,
  54.                  miRequestDest,
  55.                  miLabelO1,
  56.                  miLoadOptions,
  57.                  miSaveOptions,
  58.                  miLoadBrush,
  59.                  miSaveAsBrush,
  60.                  miToolTypes,
  61.                  miDrawerData,
  62.                  miColorSwap,
  63.                  miInformation
  64.             );
  65.  
  66. (* --- NameLists for Cycle and Registers ---------------------------------------- *)
  67.  
  68. TYPE    KindList        = ARRAY [0..5] OF Str;
  69.         SourceList      = ARRAY [0..2] OF Str;
  70.  
  71. VAR     kindL        : KindList
  72.         { ("Disk"),
  73.           ("Drawer"),
  74.           ("Tool"),
  75.           ("Project"),
  76.           ("Garbage"),
  77.           NIL
  78.         }; (* KindList *)
  79.         
  80.         sourceL      : SourceList
  81.         { ("Normal"),
  82.           ("Selected"),
  83.           NIL
  84.         }; (* SourceList *)
  85.  
  86.  
  87. PROCEDURE InitApplication;
  88. Var st, st2, st3:Str;
  89.  
  90. BEGIN
  91.   st:="MaxonPASCALAmigaDemo";
  92.   st2:="MaxonPASCAL Demo Application";
  93.   st3:="1.0";
  94.   Appbuffer:=tags((trcaName,     Long(st)),
  95.               (trcaLongName, Long(st2)),
  96.               (trcaVersion,  Long(st3)),
  97.               (tag_Done,0));
  98.   App:=TR_CreateApp(^AppBuffer);
  99. END;
  100.  
  101.  
  102. PROCEDURE InitProject;
  103. var s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, 
  104.     s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, 
  105.     s31, s32, s33, s34, s35, s36, s37, s38, s39, s40, s41, s42, s43, s44, 
  106.     s45, s46, s47, s48, s49, s50 :Str;
  107.  
  108. BEGIN
  109.   s1:="ReIcon V3.00 / Nonfunctional Demo";
  110.   s2:="Project";
  111.   s3:="o_Open Icon...";
  112.   s4:="s_Save Icon";
  113.   s5:="a_Save Icon as...";
  114.   s6:="Save Default";
  115.   s7:="Disk";
  116.   s8:="Drawer";
  117.   s9:="Tool";
  118.   s10:="Project";
  119.   s11:="Garbage";
  120.   s12:="Kick / NDOS";
  121.   s13:="?_About";
  122.   s14:="q_Quit";
  123.   s15:="Options";
  124.   s16:="1_Drop goes Destination";
  125.   s17:="2_Drop Activates";
  126.   s18:="3_No Icon Position";
  127.   s19:="4_Save Information";
  128.   s20:="5_Request on Destination";
  129.   s21:="Load Options";
  130.   s22:="Save Options";
  131.   s23:="Images";
  132.   s24:="Load Brush...";
  133.   s25:="Save as Brush...";
  134.   s26:="Pages";
  135.   s27:="t_ToolTypes";
  136.   s28:="d_Drawer Data";
  137.   s29:="c_ColorSwap";
  138.   s30:="i_Information";
  139.   s31:="Mode";
  140.   s32:="_Kind";
  141.   s33:="De_fault Tool";
  142.   s34:="Command";
  143.   s35:="_ToolTypes";
  144.   s36:="_Image";
  145.   s37:="_Drawer Data";
  146.   s38:="Ima_ge Depth";
  147.   s39:="_Stack";
  148.   s40:="4096";
  149.   s41:="Windows";
  150.   s42:="T_oolTypes";
  151.   s43:="D_rawer Data";
  152.   s44:="Co_lorSwap";
  153.   s45:="I_nformation";
  154.   s46:="Source";
  155.   s47:="Image Onl_y";
  156.   s48:="SourceName";
  157.   s49:="Destination";
  158.   s50:="DestName";
  159.   ProjectBuffer:=tags2((trwiTitle,Long(s1)),
  160.                        (trwiID,       1),
  161.                        (trwiPosition, trwpCENTERDISPLAY),
  162.                        (trmnTitle,   Long(s2)),
  163.                        (trmnItem,  Long(s3)),
  164.                        (tratID, Long(miOpenIcon)),
  165.                        (trmnItem,  Long(s4)),
  166.                        (tratID, long(miSaveIcon)),
  167.                        (trmnItem,  Long(s5)),
  168.                        (tratID, long(miSaveIconAs)),
  169.                        (trmnItem,  Long(s6)),
  170.                        (trmnSub, Long(s7)),
  171.                        (tratID, long(misdDisk)),
  172.                        (trmnSub, Long(s8)),
  173.                        (tratID, Long(misdDrawer)),
  174.                        (trmnSub, Long(s9)),
  175.                        (tratID, long(misdTool)),
  176.                        (trmnSub, Long(s10)),
  177.                        (tratID, long(misdProject)),
  178.                        (trmnSub, Long(s11)),
  179.                        (tratID, Long(misdGarbage)),
  180.                        (trmnSub, Long(s12)),
  181.                        (tratID, long(misdKick)),
  182.                        (trmnItem,  trmnBARLABEL),
  183.                        (trmnItem,  Long(s13)),
  184.                        (tratID, Long(miAbout)),
  185.                        (trmnItem,  trmnBARLABEL),
  186.                        (trmnItem,  Long(s14)),
  187.                        (tratID, long(miQuit)),
  188.                        (trmnTitle,   Long(s15)),
  189.                        (trmnItem,  Long(s16)),
  190.                        (tratID, Long(miDropGoesDest)),
  191.                        (trmnItem,  Long(s17)),
  192.                        (tratID, Long(miDropActivates)),
  193.                        (trmnItem,  Long(s18)),
  194.                        (tratID, Long(miNoIconPos)),
  195.                        (trmnItem,  Long(s19)),
  196.                        (tratID, Long(miSaveInfo)),
  197.                        (trmnItem,  Long(s20)),
  198.                        (tratID, Long(miRequestDest)),
  199.                        (trmnItem,  trmnBARLABEL),
  200.                        (trmnItem,  Long(s21)),
  201.                        (tratID, Long(miLoadOptions)),
  202.                        (trmnItem,  Long(s22)),
  203.                        (tratID, Long(miSaveOptions)),
  204.                        (trmnTitle, Long(s23)),
  205.                        (trmnItem,  Long(s24)),
  206.                        (tratID, Long(miLoadBrush)),
  207.                        (trmnItem, long(s25)),
  208.                        (tratID, Long(miSaveAsBrush)),
  209.                        (trmnTitle,   Long(s26)),
  210.                        (trmnItem,  Long(s27)),
  211.                        (tratID, Long(miToolTypes)),
  212.                        (trmnItem,  Long(s28)),
  213.                        (tratID, long(miDrawerData)),
  214.                        (trmnItem,  Long(s29)),
  215.                        (tratID, Long(miColorSwap)),
  216.                        (trmnItem,  Long(s30)),
  217.                        (tratID, Long(miInformation)),
  218.   (* ··· Main Group ·············································· *)
  219.                        (trgrVert,    trgrALIGN+trgrEQUALSHARE+trgrPROPSPACES),
  220.                        (trobSpace,   trstSMALL),
  221.                        (trgrHoriz,   trgrEQUALSHARE+trgrCENTER+trgrPROPSPACES),
  222.                        (trobSpace,   trstSMALL),
  223.    (* ··· Mode Group ············································ *)
  224.                        (trobFrameBox,  Long(NIL)),
  225.                        (tratText,  Long(s31)),
  226.                        (trgrVert,      trgrALIGN+trgrEQUALSHARE+trgrPROPSPACES),
  227.                        (trobSpace,     trstSMALL),
  228.    (* ··· Kind Group ··········································· *)
  229.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  230.                        (trobSpace,     trstSMALL),
  231.                        (trobCheckBox,  Long(NIL)),
  232.                        (tratID,   Long(wmknCheckmark)),
  233.                        (trobSpace,     trstSMALL),
  234.                        (trgrVert,        trgrALIGN),
  235.                        (trobSpace,     trstSMALL),
  236.                        (trgrHoriz,       trgrALIGN),
  237.                        (trobSpace,     trstSMALL),
  238.                        (trobText,      Long(NIL)),
  239.                        (tratText, Long(s32)),
  240.                        (tratID,   Long(wmknCheckmark)),
  241.                        (trobSpace,     trstBIG),
  242.                        (trgrEnd,         Long(NIL)),
  243.                        (trobSpace,     trstSMALL),
  244.                        (trobCycle,     Long(^kindL)),
  245.                        (tratID,    Long(wmknCycle)),
  246.                        (tratValue, Long(NIL)),
  247.                        (trobSpace,     trstSMALL),
  248.                        (trgrEnd,         Long(NIL)),
  249.                        (trobSpace,     trstSMALL),
  250.                        (trgrEnd,         Long(NIL)),
  251.      (* ··· END Kind Group ······································· *)
  252.      (* ··· Separator ··········································· *)
  253.                        (trobSpace,       trstSMALL),
  254.                        (trgrHoriz,       trgrEQUALSHARE+trgrCENTER),
  255.                        (trobSpace,       trstSMALL),
  256.                        (trobLine,        trofHORIZ),
  257.                        (trobSpace,       trstSMALL),
  258.                        (trgrEnd,         Long(NIL)),
  259.                        (trobSpace,       trstSMALL),
  260.      (* ··· END Separatr ········································ *)
  261.      (* ··· Default Tool Group ··································· *)
  262.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  263.                        (trobSpace,     trstSMALL),
  264.                        (trobCheckBox,  Long(NIL)),
  265.                        (tratID,   Long(wmdtCheckmark)),
  266.                        (trobSpace,     trstSMALL),
  267.                        (trgrVert,        trgrALIGN),
  268.                        (trobSpace,     trstSMALL),
  269.                        (trgrHoriz,       trgrALIGN),
  270.                        (trobSpace,     trstSMALL),
  271.                        (trobText,      Long(NIL)),
  272.                        (tratText, Long(s33)),
  273.                        (tratID,   Long(wmdtCheckmark)),
  274.                        (trobSpace,     trstBIG),
  275.                        (trgrEnd,         Long(NIL)),
  276.                        (trobSpace,     trstSMALL),
  277.                        (trobString,    Long(s34)),
  278.                        (tratID, Long(wmdtEntry)),
  279.                        (trobSpace,     trstSMALL),
  280.                        (trgrEnd,         Long(NIL)),
  281.                        (trobSpace,     trstSMALL),
  282.                        (trgrEnd,         Long(NIL)),
  283.       (* ··· END Default(Tool Group ······························· *)
  284.       (* ··· Separator ··········································· *)
  285.                        (trobSpace,       trstSMALL),
  286.                        (trgrHoriz,       trgrEQUALSHARE+trgrCENTER),
  287.                        (trobSpace,       trstSMALL),
  288.                        (trobLine,        trofHORIZ),
  289.                        (trobSpace,       trstSMALL),
  290.                        (trgrEnd,         Long(NIL)),
  291.                        (trobSpace,       trstSMALL),
  292.        (* ··· END Separator ········································ *)
  293.        (* ··· ToolTypes roup ······································ *)
  294.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  295.                        (trobSpace,     trstSMALL),
  296.                        (trobCheckBox,  Long(NIL)),
  297.                        (tratID,   Long(wmttCheckmark)),
  298.                        (trobSpace,     trstSMALL),
  299.                        (trgrVert,        trgrALIGN),
  300.                        (trobSpace,     trstSMALL),
  301.                        (trgrHoriz,       trgrALIGN),
  302.                        (trobSpace,     trstSMALL),
  303.                        (trobText,      Long(NIL)),
  304.                        (tratText, Long(s35)),
  305.                        (tratID,   Long(wmttCheckmark)),
  306.                        (trobSpace,     trstBIG),
  307.                        (trgrEnd,         Long(NIL)),
  308.                        (trobSpace,     trstSMALL),
  309.                        (trgrEnd,         Long(NIL)),
  310.                        (trobSpace,       trstSMALL),
  311.                        (trgrEnd,         Long(NIL)),
  312.         (* ··· END ToolTypes Group ·································· *)
  313.         (* ··· Separator ············································ *)
  314.                        (trobSpace,       trstSMALL),
  315.                        (trgrHoriz,       trgrEQUALSHARE+trgrCENTER),
  316.                        (trobSpace,       trstSMALL),
  317.                        (trobLine,        trofHORIZ),
  318.                        (trobSpace,       trstSMALL),
  319.                        (trgrEnd,         Long(NIL)),
  320.                        (trobSpace,       trstSMALL),
  321.          (* ··· END Separator ········································ *)
  322.          (* ··· Image Group ·········································· *)
  323.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  324.                        (trobSpace,     trstSMALL),
  325.                        (trobCheckBox,  Long(NIL)),
  326.                        (tratID,   Long(wmimCheckmark)),
  327.                        (trobSpace,     trstSMALL),
  328.                        (trgrVert,        trgrALIGN),
  329.                        (trobSpace,     trstSMALL),
  330.                        (trgrHoriz,       trgrALIGN),
  331.                        (trobSpace,     trstSMALL),
  332.                        (trobText,      Long(NIL)),
  333.                        (tratText, Long(s36)),
  334.                        (tratID,   Long(wmimCheckmark)),
  335.                        (trobSpace,     trstBIG),
  336.                        (trgrEnd,         Long(NIL)),
  337.                        (trobSpace,     trstSMALL),
  338.                        (trgrEnd,         Long(NIL)),
  339.                        (trobSpace,       trstSMALL),
  340.                        (trgrEnd,         Long(NIL)),
  341.            (* ··· END ToolTypes Group ·································· *)
  342.            (* ··· Separator ············································ *)
  343.                        (trobSpace,       trstSMALL),
  344.                        (trgrHoriz,       trgrEQUALSHARE+trgrCENTER),
  345.                        (trobSpace,       trstSMALL),
  346.                        (trobLine,        trofHORIZ),
  347.                        (trobSpace,       trstSMALL),
  348.                        (trgrEnd,         Long(NIL)),
  349.                        (trobSpace,       trstSMALL),
  350.             (* ··· END Separator ········································ *)
  351.             (* ··· Drawer Data Group ···································· *)
  352.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  353.                        (trobSpace,     trstSMALL),
  354.                        (trobCheckBox,  Long(NIL)),
  355.                        (tratID,   Long(wmddCheckmark)),
  356.                        (trobSpace,     trstSMALL),
  357.                        (trgrVert,        trgrALIGN),
  358.                        (trobSpace,     trstSMALL),
  359.                        (trgrHoriz,       trgrALIGN),
  360.                        (trobSpace,     trstSMALL),
  361.                        (trobText,      Long(NIL)),
  362.                        (tratText, Long(s37)),
  363.                        (tratID,   Long(wmddCheckmark)),
  364.                        (trobSpace,     trstBIG),
  365.                        (trgrEnd,         Long(NIL)),
  366.                        (trobSpace,     trstSMALL),
  367.                        (trgrEnd,         Long(NIL)),
  368.                        (trobSpace,       trstSMALL),
  369.                        (trgrEnd,         Long(NIL)),
  370.             (* ··· END Drawer Data Group ································ *)
  371.             (* ··· Separator ············································ *)
  372.                        (trobSpace,       trstSMALL),
  373.                        (trgrHoriz,       trgrEQUALSHARE+trgrCENTER),
  374.                        (trobSpace,       trstSMALL),
  375.                        (trobLine,        trofHORIZ),
  376.                        (trobSpace,       trstSMALL),
  377.                        (trgrEnd,         Long(NIL)),
  378.                        (trobSpace,       trstSMALL),
  379.              (* ··· END Separator ········································ *)
  380.              (* ··· ImageDepth Group ····································· *)
  381.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  382.                        (trobSpace,     trstSMALL),
  383.                        (trobCheckBox,  Long(NIL)),
  384.                        (tratID,  Long(wmidCheckmark)),
  385.                        (trobSpace,     trstSMALL),
  386.                        (trgrVert,        trgrALIGN),
  387.                        (trobSpace,     trstSMALL),
  388.                        (trgrHoriz,       trgrALIGN),
  389.                        (trobSpace,     trstSMALL),
  390.                        (trobText,      Long(NIL)),
  391.                        (tratText, Long(s38)),
  392.                        (tratID,   Long(wmidCheckmark)),
  393.                        (trobSpace,     trstBIG),
  394.                        (trgrEnd,         Long(NIL)),
  395.                        (trobSpace,     trstSMALL),
  396.                        (trobSlider,    trofHORIZ),
  397.                        (tratID,    Long(wmidSlider)),
  398.                        (tratValue, 3),
  399.                        (trslMin,   1),
  400.                        (trslMax,   5),
  401.                        (trobSpace,     trstSMALL),
  402.                        (trgrEnd,         Long(NIL)),
  403.                        (trobSpace,       trstSMALL),
  404.                        (trgrEnd,         Long(NIL)),
  405.             (* ··· END ImageDepth Group ································· *)
  406.             (* ··· Separator ············································ *)
  407.                        (trobSpace,       trstSMALL),
  408.                        (trgrHoriz,       trgrEQUALSHARE+trgrCENTER),
  409.                        (trobSpace,       trstSMALL),
  410.                        (trobLine,        trofHORIZ),
  411.                        (trobSpace,       trstSMALL),
  412.                        (trgrEnd,         Long(NIL)),
  413.                        ( trobSpace,       trstSMALL),
  414.             (* ··· END Separator ········································ *)
  415.             (* ··· Stack Group ·········································· *)
  416.                        (trgrHoriz,       trgrCENTER+trgrPROPSHARE),
  417.                        (trobSpace,     trstSMALL),
  418.                        (trobCheckBox,  Long(NIL)),
  419.                        (tratID,   Long(wmstCheckmark)),
  420.                        (trobSpace,     trstSMALL),
  421.                        (trgrVert,        trgrALIGN+trgrPROPSHARE),
  422.                        (trobSpace,     trstSMALL),
  423.                        (trgrHoriz,       trgrALIGN+trgrPROPSPACES),
  424.                        (trobText,      Long(NIL)),
  425.                        (tratText, Long(s39)),
  426.                        (tratID,   Long(wmstCheckmark)),
  427.                        (trobSpace,     trstBIG),
  428.                        (trgrEnd,         Long(NIL)),
  429.                        (trobSpace,     trstSMALL),
  430.                        (trobString,    Long(s40)),
  431.                        (tratID,    Long(wmstEntry)),
  432.                        (tratValue, 11),
  433.                        (trobSpace,     trstSMALL),
  434.                        (trgrEnd,         Long(NIL)),
  435.                        (trobSpace,       trstSMALL),
  436.                        (trgrEnd,         Long(NIL)),
  437.               (* ··· END Stack Group ······································ *)
  438.                        (trobSpace,     trstSMALL),
  439.                        (trgrEnd,       Long(NIL)),
  440.               (* ··· END Mode Group ········································· *)
  441.               (* ··· Selection Group ········································ *)
  442.                        (trgrVert,      trgrALIGN+trgrPROPSHARE+trgrPROPSPACES),
  443.                        (trobSpace,     trstSMALL),
  444.                (* ··· Pages Group ·········································· *)
  445.                        (trobFrameBox, trfbFRAMING),
  446.                        (tratText, Long(s41)),
  447.                        (trgrHoriz,    trgrALIGN+trgrEQUALSHARE),
  448.                        (trobSpace,    trstSMALL),
  449.                        (trgrVert,     trgrALIGN+trgrEQUALSHARE),
  450.                        (trobSpace,    trstSMALL),
  451.                (* ··· ToolType-Page-Selector ····························· *)
  452.                        (trgrHoriz,       trgrALIGN+trgrCENTER),
  453.                        (trobSpace,       trstSMALL),
  454.                        (trobButton,    trbtTEXT),
  455.                        (tratText,  Long(s42)),
  456.                        (tratID,    Long(miToolTypes)),
  457.                        (tratFlags, trbuYRESIZE),
  458.                        (trobSpace,       trstSMALL),
  459.                        (trgrEnd,         Long(NIL)),
  460.                 (* ··· END ToolType-Page-Selector ························· *)
  461.                        (trobSpace,     trstSMALL),
  462.                 (* ··· DrawerData-Page-Selector ··························· *)
  463.                        (trgrHoriz,       trgrALIGN+trgrCENTER),
  464.                        (trobSpace,       trstSMALL),
  465.                        (trobButton,    trbtTEXT),
  466.                        (tratText,  Long(s43)),
  467.                        (tratID,    Long(miDrawerData)),
  468.                        (tratFlags, trbuYRESIZE),
  469.                        (trobSpace,       trstSMALL),
  470.                        (trgrEnd,         Long(NIL)),
  471.                 (* ··· END DrawerData-Page-Selector ······················· *)
  472.                        (trobSpace,     trstSMALL),
  473.                 (* ··· ColorSwap-Page-Selector ···························· *)
  474.                        (trgrHoriz,       trgrALIGN+trgrCENTER),
  475.                        (trobSpace,       trstSMALL),
  476.                        (trobButton,    trbtTEXT),
  477.                        (tratText,  Long(s44)),
  478.                        (tratID,    Long(miColorSwap)),
  479.                        (tratFlags, trbuYRESIZE),
  480.                        (trobSpace,       trstSMALL),
  481.                        (trgrEnd,         Long(NIL)),
  482.                   (* ··· END ColorSwap-Page-Selector ························ *)
  483.                        (trobSpace,     trstSMALL),
  484.                   (* ··· Information-Page-Selector ·························· *)
  485.                        (trgrHoriz,       trgrALIGN+trgrCENTER),
  486.                        (trobSpace,       trstSMALL),
  487.                        (trobButton,    trbtTEXT),
  488.                        (tratText,  Long(s45)),
  489.                        (tratID,   Long(miInformation)),
  490.                        (tratFlags, trbuYRESIZE),
  491.                        (trobSpace,       trstSMALL),
  492.                        (trgrEnd,         Long(NIL)),
  493.                 (* ··· END Information-Page-Selector ······················ *)
  494.                        (trobSpace,      trstSMALL),
  495.                        (trgrEnd,        Long(NIL)),
  496.                        (trobSpace,      trstSMALL),
  497.                        (trgrEnd,        Long(NIL)),
  498.                (* ··· END Pages Group ······································ *)
  499.                (* ··· Icon Group ··········································· *)
  500.                        (trgrHoriz,    trgrALIGN+trgrEQUALSHARE+trgrPROPSPACES),
  501.                        (trobSpace,    trstSMALL),
  502.                (* ··· Source Group ······································· *)
  503.                        (trobFrameBox,  trfbFRAMING),
  504.                        (tratText, Long(s46)),
  505.                        (trgrHoriz,     trgrALIGN+trgrEQUALSHARE+trgrPROPSPACES),
  506.                        (trobSpace,     trstSMALL),
  507.                        (trgrVert,      trgrALIGN+trgrPROPSHARE+trgrPROPSPACES),
  508.                        (trobSpace,     trstSMALL),
  509.                        (trobDropBox,   Long(NIL)),
  510.                        (tratID, Long(sGroup)),
  511.                        (trobSpace,     trstSMALL),
  512.                        (trobCycle,     Long(^sourceL)),
  513.                        (tratID,    Long(sSelected)),
  514.                        (tratValue, 0),
  515.                        (trobSpace,     trstSMALL),
  516.                        (trgrHoriz,       trgrALIGN+trgrPROPSPACES),
  517.                        (trobCheckBox,  Long(NIL)),
  518.                        (tratID, Long(sImageOnly)),
  519.                        (trobSpace,     trstNORMAL),
  520.                        (trobText,      Long(NIL)),
  521.                        (tratText, Long(s47)),
  522.                        (tratID,   Long(sName)),
  523.                        (trobSpace,     trstBIG),
  524.                        (trobSpace,     trstBIG),
  525.                        (trgrEnd,         Long(NIL)),
  526.                        (trobSpace,     trstSMALL),
  527.                        (trobFrameBox,  trfbTEXT),
  528.                        (trgrHoriz,       trgrALIGN+trgrPROPSPACES),
  529.                        (trobSpace,     trstBIG),
  530.                        (trobText,      Long(NIL)),
  531.                        (tratText, Long(s48)),
  532.                        (tratID,   Long(sName)),
  533.                        (trobSpace,     trstBIG),
  534.                        (trgrEnd,         Long(NIL)),
  535.                        (trobSpace,     trstSMALL),
  536.                        (trgrEnd,       Long(NIL)),
  537.                        (trobSpace,     trstSMALL),
  538.                        (trgrEnd,       Long(NIL)),
  539.                   (* ··· END Source Group ··································· *)
  540.                        (trobSpace,     trstSMALL),
  541.                   (* ··· Destination Group ·································· *)
  542.                        (trobFrameBox,  trfbFRAMING),
  543.                        (tratText, Long(s49)),
  544.                        (trgrHoriz,     trgrALIGN+trgrPROPSPACES),
  545.                        (trobSpace,     trstSMALL),
  546.                        (trgrVert,      trgrALIGN),
  547.                        (trobSpace,     trstSMALL),
  548.                        (trobDropBox,   Long(NIL)),
  549.                        (tratID, Long(dGroup)),
  550.                        (trobSpace,     trstSMALL),
  551.                        (trobFrameBox,  trfbTEXT),
  552.                        (trgrHoriz,       trgrALIGN),
  553.                        (trobSpace,     trstBIG),
  554.                        (trobText,      Long(NIL)),
  555.                        (tratText, Long(s50)),
  556.                        (tratID,   Long(dName)),
  557.                        (trobSpace,     trstBIG),
  558.                        (trgrEnd,         Long(NIL)),
  559.                        (trobSpace,     trstSMALL),
  560.                        (trgrEnd,       Long(NIL)),
  561.                        (trobSpace,     trstSMALL),
  562.                        (trgrEnd,       Long(NIL)),
  563.                  (* ··· END Destination Group ······························ *)
  564.                        (trobSpace,     trstSMALL),
  565.                        (trgrEnd,       Long(NIL)),
  566.                 (* ··· END Icon Group ······································· *)
  567.                        (trobSpace,     trstSMALL),
  568.                        (trgrEnd,       Long(NIL)),
  569.                  (* ··· END Selection Group ···································· *)
  570.                        (trobSpace,   trstSMALL),
  571.                        (trgrEnd,     Long(NIL)),
  572.                        (trobSpace,   trstSMALL),
  573.                        ( trgrEnd,     Long(NIL)),
  574.                 (* ··· END Main Group ··········································· *)
  575.                        (tag_done,0));
  576.   Project:=TR_OpenProject(App,^ProjectBuffer);
  577. END;
  578.  
  579.  
  580. VAR     trMsg   : p_TrMessage;
  581.         quit    : BOOLEAN;
  582.         z:Long;
  583.  
  584. BEGIN
  585.   Openlib(tritonbase,"triton.library",0);
  586.   InitApplication;
  587.   InitProject;
  588.   quit:= FALSE;
  589.   WHILE  Not(quit) DO     (* --- Wait for a Message ----------------------------------------------- *)
  590.   BEGIN
  591.     z:=TR_Wait( App, 0 );   (* --- Eval Messages as long as one appears ----------------------------- *)
  592.     trMsg:= TR_GetMsg( App );
  593.     WHILE (trMsg <>NIL) DO     (* --- Only take care if it's for our Project ------------------- *)
  594.     BEGIN
  595.       IF  (trMsg^.project = Project) THEN
  596.       BEGIN
  597.         CASE trMsg^.class OF
  598.           trmsCLOSEWINDOW : quit:= TRUE;
  599.         ELSE   (* unknown code *)
  600.         END; (* case *)
  601.       END; (* if *)
  602.            (* --- Answer the Message and get next -------------------------- *)
  603.       TR_ReplyMsg( trMsg );
  604.       trMsg:= TR_GetMsg( App );
  605.     END; (* while *)
  606.   END; (* while *)
  607.   IF  Project <>NIL  THEN
  608.   BEGIN
  609.     TR_CloseProject(Project);
  610.     Project:=NIL;
  611.   END;
  612.   IF  App <> NIL THEN
  613.   BEGIN
  614.     TR_DeleteApp(App);
  615.     App:= NIL;
  616.   END;
  617. END.
  618.  
  619.